home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,801 to 2,900 / aol-file-protocol-4400-2801-to-2900.zip / AOLDLs / Database (AppleWorks) / My Macros and Chore Keeper (SHK) / CHOREKEEPER.shk / MY.MACROS (.txt) next >
AppleWorks Document  |  1993-01-07  |  7KB  |  104 lines
  1. O<====<====<====<====<====<====<====<===<=====<====<====<====<====<====<====<===
  2. O<====<====<====<====<====<====<====<===<=====<====<====<====<====<====<====<===
  3. rtn : oa-P >5< rtn : find : rtn>Y5< rtn : $0="XXXX" : 
  4. CUSTOM MACROS 
  5. John F. King
  6. 5770 Winfield Ct.
  7. Boise, Idaho 83703
  8. REQUIRES APPLEWORKS VERSION 3.0 AND ULTRA MACROS 3.1
  9. DMost of the macros included in this file are ones I have never seen O
  10. Melsewhere, and I use frequently.  Some, like ba-c, are common ones I include O
  11. Mon all macro files.  Please try these out and let me know if they don't work P
  12. Nor if you have suggestions, improvements, or additions.  I would like to know <
  13. if you enjoy them.  My name on America Online is JohnKing1
  14. ********
  15. NThe first macro below will look for the file "To Do" on the desktop. If it is L
  16. Jthere, it will arrange the records by the numbers in the left column.  If N
  17. Lnot, it will look on the current data disk for the "To Do" data base file.  F
  18. If it is not on the disk, a message will appear and the macro stops.
  19. NUse the "To Do" data base file to keep track of chores or things to do.  When I
  20. Gthe item is completed type in the date or some other item in the "Date P
  21. NCompleted" field and the record will disappear from view.  Give each record a N
  22. Lpriority number in the left column.  Each time you want to re-sort the list M
  23. Kpress ba-e and presto...the list is renumbered and rearranged.  I use it a M
  24. Klot!  Change the review/add/change screen as you like, but always keep the 5
  25. numbered column on the far left side of the screen.
  26. start
  27. C<ba-e>:<all : oa-q : $0="To Do" : find : if Z=0 then {& "path" : & M
  28. K"/YourDisk/SubDir/etc" } : sa-A : find : if Z=0 then : msg ' Sorry, Cannot M
  29. Kfind the Data Base File ' : endmacro else rtn : else rtn : elseoff : msg ' N
  30. LWait, Please... ' : display 0 : insert:zoom:oa-, : oa-1: oa-a : rtn>3<rtn : P
  31. Nx= peekword $3917:a=1: begin : oa-Y : print A:print ". ":down:A=A+1:x=x-1: if 
  32. x>0 rpt else ba-ctrl-E>!
  33. NNOTE: Change the pathname to where you keep your "To Do" file then remove the 
  34. { } brackets if you wish.
  35. N<ba-ctrl-E>:<asr :  display 1 : oa-1 : msg ' List Arranged and Renumbered ' : 5
  36. stop>! QUICKLY Retrieves To Do Data base from Disk.
  37. --------------------------------------------------------------------------
  38. LTHE FOLLOWING ARE MISCELLANEOUS MACROS THAT I FIND HANDY, BUT HAVE NOT SEEN 
  39. ELSEWHERE.
  40. --------------------------------------------------------------------------
  41. NR:<adb><display 0 : oa-L : rtn esc>2<rtn : display 1 : msg ' Cursor NOW MOVES N
  42. LTO THE RIGHT! ' : Ba-Ctrl-D : msg " " : >!  Change cursor to right movement 
  43. in Data Base.
  44. ND:<adb><display 0 : oa-L : rtn esc>1<rtn : display 1 : msg ' Cursor NOW MOVES N
  45. LDOWN! ' : Ba-Ctrl-D : msg " " : >!  Change cursor to right movement in Data 
  46. Base.
  47. L:<adb><zoom><oa-9><oa-z><oa-Down>y<oa-Down><oa-Down><oa-Down><oa-Down>J
  48. <oa-Down><oa-Down><oa-Down><oa-Down><oa-Down><oa-Down><oa-z><Down><Down>N
  49. <Down><Down><Down><Down><Down><Down><Down><Down><Up><Up><Up><Up><Up><Up><Up>9
  50. <Up><Up>! Adds 10 empty records to bottom of data base.
  51. MX:<all: onerr stop : begin : cell : $1=$0 : down : cell : $2=$0 : if $1=$2 : N
  52. Lrpt>! Runs the cursor through vertical columns in a spreadsheet, data base, O
  53. Mor word processor.  The cursor will stop with every DIFFERENT FIELD from the K
  54. one above it.  Very handy with large lists like classical composers, etc.
  55. LThe macro below (ba-N) looks through a column of numbers in a data base, if H
  56. Fnumbers are repeated, it goes on, but if a number is missing from the -
  57. numerical sequence it stops with a message.
  58. L<ba-N>:<adb: onerr stop : msg " " : cell : $1=$0 : down : cell : $2=$0 : if P
  59. N$1=$2 then rpt else : A = val $1 : B=A+1 : if B=val $2 then down : rpt : else P
  60. Nbell: bell : C=A+1 : $9 = "You are missing number " + str$ C  + " here" : msg C
  61. $9 : stop>! Looks for missing numbers in series.  Saves eyeballs.
  62. L<ba-b>:<all><oa-Q esc>5<rtn>3<rtn disk : sa-0>/<msg ' Type Directory Name ' /
  63. :>!  Create a subdirectory in Current Prefix.
  64. K<ba-s>:<all oa-q : esc : print "4" : rtn : oa-right : rtn : stop>! Removes P
  65. NAll unchanged or saved files from the desktop; prompts user to save or remove F
  66. others. This macro is for cleaning the desktop.  I use it every day.
  67. I<ba-X>:<all: onerr stop : begin : msg " " : cell : $1=$0 : down : cell : N
  68. L$2=$0 : if $1=$2 then : msg ' You have a duplication here ' : stop : else : M
  69. Krpt>! Looks through a vertical list of anything and tell you if you have a %
  70. duplication; another eyeball saver.
  71. NThe following set of macros will copy all the fields in selected records from 5
  72. a data base to another having identical categories.
  73. N<ba-T>:<All : oa-Q : msg ' Select Source Data Base File ' : Ba-Ctrl-D : rtn : C
  74. ba-ctrl-T : msg ' Select Records To Transfer, then Press SA-* '>!
  75. D<ba-ctrl-T>:<asr: display 0 : oa-P>2<rtn>2<rtn>RAC<rtn : esc >2<rtn J
  76. rtn>XXXX<rtn esc esc oa-L>2<display 1 : rtn : $0="XXXX" : find rtn rtn>!
  77. H*:<all : display 0 : oa-1 : oa-C>T<oa-9: rtn : ba-ctrl-X : oa-q : msg ' P
  78. NSelect Destination Data Base File ' : Ba-Ctrl-D : rtn : ba-ctrl-T : display 0 B
  79. : oa-C : Print "F" : ba-ctrl-X : msg  ' Operation Complete ' :>!
  80. L<ba-Ctrl-X>:<adb: oa-q : rtn : oa-L>2<display 1 : rtn $0="RAC" : find : rtn J
  81. rtn : oa-P >5< rtn : find : rtn>Y5< rtn : $0="XXXX" : find : rtn>Y<esc>!
  82. --------------------------------------------------------------------------
  83. MTHE MACROS BELOW ARE COMMON ONES THAT I INCLUDE ON ALL MACRO SETS AS PART OF 
  84. A TEMPLATE.
  85. --------------------------------------------------------------------------
  86. Cursor-positioning macros
  87. <left>:<adb><onerr stop><oa-tab><tab>!
  88. <left>:<all : first>!      Jump to beginning of line
  89. <right>:<adb><a=0><begin><right><A=A+1><ifnot A=80><rpt>!
  90. <right>:<all: last>!  Jump to end of line
  91. <up>:<all><sa-left><oa-up>!                 Home to top left of screen
  92. <down>:<all><sa-left><oa-down>!             Home to bottom left of screen
  93. LA:<all><oa-Q : display 0 : esc rtn display 1 : rtn>!   add files to Desktop 
  94. from anywhere in AW
  95. EThe following compiles current file; add a <rtn> token after "NB" to O
  96. Mautomatically execute the first macro in the new set; the N and B at the end K
  97. Iselect the "No pause" and compile from "Beginning" options in the "Macro 
  98. Compiler" TimeOut application
  99. F<ba-c>:<awp : oa-esc : $0="Macro Compiler" : find : rtn rtn rtn rtn>! 
  100. Compiles current macro file
  101. K<ba-ctrl-D>:<asr : keyto 13 : if Z=0 then : msg ' Macro Aborted ' : stop : C
  102. else>!  Substitute for INPUT; allows user to escape out of macro.
  103. <ba-L>:<All: launch "Ultra.System">!
  104.